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SQL> cl scr 

SQL> CREATE TABLE Messages 
2 ( 

3 Results VARCHAR2 (200) 

4 ) 

5 / 

Table created. 

SQL> ED 

Wrote file afiedt.buf 




c# 






Sail | 



| | V_Ename | | 



DECLARE 

V_Ename Emp . Ename%TYPE; 

V_Sal Emp . Sal%TYPE := &Sal; 

BEGIN 

SELECT Ename INTO V_Ename 
FROM Emp 

WHERE Sal = V_S a 1 ; 

8 INSERT INTO Messages (Results ) 

9 VALUES (USER | | ' Queried for Salary! 
was Found. ' ) ; 

10 EXCEPTION 

11 WHEN NO_DATA_FOUND THEN 

12 INSERT INTO Messages (Results^ + 

13 VALUES (USER | | ' Queried t pi£WV_Sal II ' Salary on 
' | | TO_CHAR (SYSDATE, 'DD, Mon a\ w; HH2 4 : MI : SS ' ) II ' And The Requested 
Salary Was Not Found.');, ^Tt|., +J 

14 WHEN TOO_MANY_RO WS ?||en\, 

15 INSERT INTO Messaf'e^-jfefeults ) 

16 VALUES (USER | | /pue ^ h For ' | |V_Sal| | ' Salary on 

' | | TO_CHAR (SYSDATE Month YYYY, HH24 :MI : SS ' ) | | ' And Many Records 

Were Matching Upon Th#c Salary Hence Query Failed To Retrieve The 
Data.'); ^_\ 

1 7 WHEN Q|#H|$|p%EN 

18 INSERT^-WEM Messages (Results) 

19 VALUES (USTO | | ' Executed For Some Data ' | | TO_CHAR (SYSDATE, ' FMDD , 
Month^"^Q^ HH24 :MI : SS ' ) | | ' And Administrators Attention is Expected . ' ) ; 

2 0 * 

SQL>£/ + -» 

Ej^l^Kelue for sal: 950 




/SQL procedure successfully completed. 
QL> / 

Enter value for sal: 2234 
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PL/SQL procedure successfully completed. 



SQL> / 

Enter value for sal: 2850 

PL/SQL procedure successfully completed. 

SQL> / 

Enter value for sal: 3000 

PL/SQL procedure successfully completed. 

SQL> SELECT * FROM Messages; 




RESULTS 



<k 



Jt%d- 



18:15:45 And The 



SCOTT Queried for Salary of 950 and JAMES was 
SCOTT Queried For 2234 Salary on 2 0 , Novembter< 

Requested Salary Was Not Found. + 

SCOTT Queried for Salary of 2850 and BLAK0i^^^%Found . 

SCOTT Queried For 3000 Salary on 2 0 , N^vJylce^r 2 014, 18:17:9 And Many 
Records Were Matching Upon That 
Failed To Retrieve The Data. 



20, N4vJw5epr"2014, 

Sal a^j Query 



SQL> cl scr 



TftE;% 
> E ; 

?E t Tr f 

^D%TY1 



sTYPE; 



SQL> DECLARE 

2 V_Ename Emp.Ename%Tl 

3 V_Sal Emp . Sal%TYP|^5^V#’ 

4 V_Job Emp. Job ^Y PE | 

5 V_Deptno Emp . ] 

6 BEGIN a 

7 SELECT Enma Sal , Job, Deptno 

8 INTO 

9 V_Ename^f\^Sal > , V_Job, V_Deptno 

10 FROM EmpV 

1 1 Emp no = SGiveEmpNo; 

12 D^fesroTPUT . PUT_LINE ( ' The Employee Name is 
for lepaBtment ' | | V_Deptno | | ' Having Salary of 

^)'| tt «fiCLARE 

l £ j+ V_Staf f NUMBER ( 1 ) ; 

t u +>.'hLl5^ T4 BEGIN 



\ 1*6 

17 

18 



SELECT COUNT (*) INTO V_Staff 
FROM Emp 

WHERE Deptno = V_Deptno; 



: ' | I V_Ename | | ' Working 
I I V_Sal | | ; 
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19 DBMS_OUTPUT . PUT_LINE ( ' The Total Number of Employees Working in 
Department ' | | V_Deptno | | ' are ' | | V_Staf f II'.'); 

20 EXCEPTION 

21 WHEN VALUE_ERROR OR INVALID_NUMBER THEN 

22 DBMS_OUTPUT . PUT_LINE ( ' There is some Error in the Data inputs (OR)^ 
Data outputs. Please Check, Debug the Source.'); 

23 END; 

24 EXCEPTION 

25 WHEN NO_DATA_FOUND THEN 

26 DBMS_OUTPUT . PUT_LINE ( ' The Given Information is Missing 
Database, Check for Proper Values.'); 

27 END; 

28 / 

Enter value for giveempno : 2234 

The Given Information is Missing in the Database , .Ch§3k : Proper 
Values . ul I- 

PL/SQL procedure successfully completed. 

SQL> / 

Enter value for giveempno: 7839 
The Employee Name is :KING Working fo 
5000. 

The Total Number of Employees Working irmiepartment 1 0 are 3 . 

PL/SQL procedure successfully casmected. 
sql> / 

Enter value for giveempno 5 
The Employee Name is : JOsCs Working for Department 2 0 Having Salary of 

2975 ' ^ 

The Total Number oy Employees Working in Department 2 0 are 5 . 

PL/SQL procedure^suctnass fully completed. 




tment 10 Having Salary of 



v 



SQL> / 

Enter value 




\ 



r BgiVeempno : 7 654 

e is :MARTIN Working for Department 30 Having Salary of 



The Employee 

1250.% 

The T^pyiomber of Employees Working in Department 30 are 6 . 






O’ 



Pi^fiOTMprocedure successfully completed. 

1 . 0 / 






L> INSERT INTO Emp (Empno, Ename, Deptno, Sal) 
VALUES (7935, 'SURESH', 30, 2000); 



1 row created. 



SkyEss Techno Solutions Pvt. Ltd. 

Flat No. 201, II Floor, Abhilash Towers, BK Guda, Hyderabad - 500 038 
Ph No. +9140 23710047, 64640047, Mobile: 9985798869 
Contact For Courses And Training in 

Oracle Developer Suite 10g(D2K), Oracle Apps R12, Live Projects in SQL and PL/SQL, Data 

Modeling, Linux/Unix 

Follow Me: https://www.facebook.com/satishkumar.yellanki 



Spool File For Oracle Students Trained by Mr.Sathish Yellanki 



SQL> INSERT INTO Emp (Empno, Ename, Deptno, Sal) 

2 VALUES (7936, 'SUKESH', 30, 2250); 

1 row created. 

SQL> INSERT INTO Emp (Empno, Ename, Deptno, Sal) 

2 VALUES (7937, 'RUPESH', 30, 2350); 

1 row created. 

SQL> ED 

Wrote file afiedt.buf 

1 DECLARE 

2 V_Ename Emp . Ename%TYPE; 

3 V_Sal Emp . Sal%TYPE; 

4 V_Job Emp . Job%TYPE ; 

5 V_Deptno Emp . Deptno%TYPE ; 

6 BEGIN 

7 SELECT Ename, Sal, Job, Deptno 

8 INTO 

9 V_Ename, V_Sal, V_Job, V_Deptno 

10 FROM Emp 

11 WHERE Empno = SGiveEmpNo; 

12 DBMS_OUTPUT . PUT_LINE ( ' The 0W!%ee Name is : ' | | V_Ename || ' Working 
for Department ' | | V_Deptno | | ' H^s/^cjSb alary of 'll V_Sal | | ' . ' ) ; 

13 DECLARE ♦ %£r 

14 V_Staf f NUMBER ( 1 ) ; ,, *+ + 

15 BEGIN 

16 SELECT COUNT (*) IN$£ \Tj$taf f 

17 FROM Emp f' 

18 WHERE Deptno J^V D,. 

1 9 DBMS_OUTPUT . pW^ 5%N*E ( ' The Total Number of Employees Working in 

Department ' | I V_QeptnaT I ' are ' | |V_Staff I I ' . ') ; 

20 EXCEPTION^ \ 

21 WHEN 4^&ffitmROR OR INVALID_NUMBER THEN 

2 2 DBMS_u^KPljr . ]\jT_LINE ( ' There is some Error in the Data inputs (OR) 
Data out put s , ease Check, Debug the Source.'); 

2 3 ^EN^i)^ 

25 fwH^ NO_DATA_FOUND THEN 

»BKS_OUTPUT . PUT_LINE ( ' The Given Information is Missing in the 




7 



no; 



iafapse, Check for Proper Values.'); 
r+ u +i 7 END; 



O 



Sh 

\p5l> / 

nter value for giveempno : 7839 
The Employee Name is :KING Working for Department 10 Having Salary of 
5000. 
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The Total Number of Employees Working in Department 10 are 3. 
PL/SQL procedure successfully completed. 

SQL> / 

Enter value for giveempno : 7566 
The Employee Name is : JONES Working for Department 20 Having Sala 
2975. 

The Total Number of Employees Working in Department 20 are 5 



■ ^ 













aving Salary of 



re 



PL/SQL procedure successfully completed. 

SQL> / 

Enter value for giveempno: 7654 

The Employee Name is : MARTIN Working for Departme 
1250. 

The Total Number of Employees Working in Departm^^kJ? 

PL/SQL procedure successfully completed A- + 

SQL> INSERT INTO Emp (Empno, Ename, Deptnc 
2 VALUES (7938, 'RAHUL', 30, 2450) 

1 row created. 

SQL> ED 

Wrote file afiedt.buf 



1 DECLARE 

2 V_Ename Emp.Ename%Tl 

3 V_Sal Emp . Sal%TYP| 

4 V_Job Emp. Job PE f 

5 V_Deptno Emp . ] 

6 BEGIN a 

7 SELECT Enma Sal , Job, Deptno 

8 INTO 

9 V_E n arrulfcfvjS af, V_Job, V_Deptno 

10 FROMEmpV 

11 W Empno = SGiveEmpNo; 

12 D^jSaOTOTPUT . PUT_LINE ( ' The Employee Name is : ' | | V_Ename || ' Working 
for ^paHtment ' | | V_Deptno | | ' Having Salary of ' | |V_Sal| I ' . ') ; 

^)'| Xt «fiCLARE 
l £ j+ V_Staf f NUMBER ( 1 ) ; 

' 4 0l5 Hr ^ BEGIN 




% > 
' • . • : 17 

18 



SELECT COUNT (*) INTO V_Staff 
FROM Emp 

WHERE Deptno = V_Deptno; 
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19 DBMS_OUTPUT . PUT_LINE ( ' The Total Number of Employees Working in 
Department ' ! | V_Deptno | | ' are ' | | V_Staf f II'.'); 

20 EXCEPTION 

21 WHEN VALUE_ERROR OR INVALID_NUMBER THEN 

22 DBMS_OUTPUT . PUT_LINE ( ' There is some Error in the Data inputs (OR)^ 
Data outputs. Please Check, Debug the Source.'); 

23 END; 

24 EXCEPTION 

25 WHEN NO_DATA_FOUND THEN 

26 DBMS_OUTPUT . PUT_LINE ( ' The Given Information is Missing^ 

Database, Check for Proper Values.'); 

27* END; 

SQL> / 

Enter value for giveempno : 7839 

The Employee Name is : KING Working for Department 
5000 . 

The Total Number of Employees Working in Departm^rtr ar< 

PL/SQL procedure successfully completed. -a ¥ irtt + 







SQL> ' i * ^ 

Enter value for giveempno: 7566 % ’ 



I +4 



The Employee Name is : JONES Working Department 2 0 Having Salary of 

2 975. + +. 

The Total Number of Employees Wc^d^N^o in Department 2 0 are 5 . 

/V 

PL/SQL procedure successfully c^ip^eted. 

a ^ 

w 



er value for giveempndC] 7%^4 



SQL> / 

Ent 

The Employee Name is 
1250. 

There is some Erro 
Debug the Source 





Working for Department 30 Having Salary of 

► 

e Data inputs (OR) Data outputs. Please Check, 



PL/SQL pro 
SQL> ROLLBACK , 5 

Rollb£&k'^ii«>fiplete . 

sa^Trt^sc 

. " rJM-. 



ccessfully completed. 






scr 



o 



# Lj? 

SQL> DECLARE 



f V E_Emp Remaining EXCEPTION; 

3 PRAGMA EXCEPTION_INIT (E_EmpRemaining, -2292); 

4 V_Deptno Emp . Deptno%TYPE := SGiveDeptno; 

5 BEGIN 
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6 DELETE FROM Dept 

7 WHERE Deptno = V_Deptno; 

8 EXCEPTION 

9 WHEN E_EmpRemaining THEN 

10 DBMS_OUTPUT.PUT_LINE ( 'Unable to 
' I |V_Deptno| | ' as the Employees are 
then Try Once Again. ' ) ; 

11 WHEN NO_DATA_FOUND THEN 

12 DBMS_OUTPUT . PUT_LINE ( ' The Given 
Database, Check for Proper Values.') 

13 END; 

14 / 

Enter value for givedeptno : 40 



_s Missing in the 



12 WHEN E_EmpRemaining THEN 
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SQL> / 

Enter value for givedeptno: 30 
Unable to Delete the Department Numb 
Validate Your Relations and then Try 



Again . 



PL/SQL procedure successfully comple 



PL/SQL procedure successfully comple 
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13 DBMS_OUTPUT.PUT_LINE ( 'Unable to Delete the Department Number 
' I |V_Deptno| I ' as the Employees are Existing. Validate Your Relations and 
then Try Once Again. ' ) ; 

14* END; 

SQL> / 

Enter value for givedeptno : 80 

The Given Information is Missing in the Database, Check for Prope: 

Values . 

PL/SQL procedure successfully completed. 

SQL> cl scr 
SQL> ROLLBACK; 

Rollback complete. 

SQL> DECLARE 

2 E_EmpExists EXCEPTION; 

3 V_Count NUMBER (2); 

4 V_SalSum NUMBER (6); 

5 PRAGMA EXCEPT ION_INI T (E_EmpExist 

6 V_Empno Emp . Empno%TYPE := SGive 4 

7 BEGIN 

8 DELETE FROM Emp 

9 WHERE Empno = V_Empno; _p 

IF SQL%NOTFOUND THEN 



10 

11 




DBMS OUTPUT .PUT LINE1 ' J^eNCafen Employee Number ' | | V_Empno ! | 



is 



jtSh 



CS 



Missing in the Database,*^*c1^:ror Proper Values . ' ) ; 

12 ROLLBACK; % 

13 END IF; 

14 EXCEPTION 

15 WHEN E_EmpExi: 

16 DBMS_OUTPUT4PUT_^4E ( 'Unable to Delete the Employee Details 

' | | V_Empno | | ' ^Vhe Employees are Existing . Validate Your Relations and 
then Try OryfeT^gS^ifi . ' ) ; 

17 END; + +f 1 ^ 

18 / ^ V 

Entervv^^. for giveempno : 7 654 
PL/SQL DSocedure successfully completed. 



ter value for giveempno: 7566 

rfable to Delete the Employee Details 7566 as the Employees are Existing . 
alidate Your Relations and then Try Once 
Again . 
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PL/SQL procedure successfully completed. 

SQL> ROLLBACK; 

Rollback complete. 

SQL> cl scr 
SQL> DECLARE 

2 E_Not NULL Viol at ion EXCEPTION; 

3 PRAGMA EXCEPTION_INIT (E_NotNULLViolation, -1400); 

4 BEGIN 



5 INSERT INTO Emp (Empno, Ename, Job, Sal, Comm, Deptn^) 

6 VALUES (& Empno, ' SATISH' , 'ANALYST ' , 25000, NULL# SDep^io) ; 

7 EXCEPTION . 4% 

\r +l 


















8 WHEN E_NotNULLViolat ion THEN 'ti l, , | '+ ■» 

9 DBMS_OUTPUT . PUT_LINE ( ' A Field which Cannot H^JiULL^ is not attended. 
Please Check Properly. . . ' ) ; 

10 END; 

11 / 

Enter value for empno: 7935 
Enter value for deptno : 30 







e; 






PL/SQL procedure successfully completed 

<N 



SQL> / 

Enter value for empno : NULL ♦ 
Enter value for deptno : 30 
A Field which Cannot be 



X 






nu: 



MX) 



3 



+ +J 



(S , 

not attended. Please Check Properly... 



PL/SQL procedure succe/! completed. 

SQL> / 

Enter value for smpnorfr? 93 6 
Enter value fojj^. deptno: NULL 

A Field whi^njg^mlbt be NULL, is not attended, Please Check Properly. . . 

* 

PL/SQL procedwe successfully completed. 

% cx 

SQL> 

Wrote f: Oe af iedt . buf 

Ay 

*■ I D eclare 

i 11111 1 1 » " ' i H. 2 V_Empno Emp . Empno%TYPE := &Empno; 



o 



V_Deptno Emp . Deptno%TYPE := &Deptno; 

4 E_NotNULLViolation EXCEPTION; 

5 PRAGMA EXCEPTION_INIT (E_NotNULLViolation, -1400); 

6 BEGIN 
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7 INSERT INTO Emp (Empno, Ename, Job, Sal, Comm, Deptno) 

8 VALUES (V_Empno, ' SATHISH ' , 'ANALYST', 25000, NULL, V_Deptno) ; 

9 EXCEPTION 

10 WHEN E_NotNULLViolat ion THEN 

11 IF V_Empno IS NULL THEN 

12 DBMS_OUTPUT.PUT_LINE ( 'Employee Number Cannot be NULL, Please 
Properly 

13 ELSE 

14 DBMS_OUTPUT.PUT_LINE ( 'Department Number Cannot be NULL 
Properly 

15 END IF; 

16* END; 

SQL> / \ -+4* 

Enter value for empno: NULL 
Enter value for deptno: 30 

Employee Number Cannot be NULL, Please Check Prope 
PL/SQL procedure successfully completed. 



SQL> / 

Enter value for empno: 7937 
Enter value for deptno: NULL 
Department Number Cannot be NULL 




ck Properly . . . 




PL/SQL procedure successfully 
SQL> cl scr 
SQL> ROLLBACK; 

Rollback complete. 

SQL> cl scr 
SQL> ALTER TAB^jJEmp 

2 ADD Cqj^JgA^Nt EmpEnameCHK CHECK (Ename = UPPER (Ename) ) 

3 ADD COWT R1 TNT Emp JobCHK CHECK (Job = UPPER (Job) ) 



L W>%» 

.Iffri jt# file af iedt . buf 
1 



DECLARE 

2 E_Not NULL Viol at ion EXCEPTION; 

3 PRAGMA EXCEPTION_INIT (E_NotNULLViolation, -1400); 

4 E_CheckViolat ion EXCEPTION; 
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5 PRAGMA EXCEPTION_INIT (E_CheckViolation, -2290); 

6 BEGIN 

7 INSERT INTO Emp (Empno, Ename, Job, Sal, Comm, Deptno) 

8 VALUES (SEmpno, 1 SEname ' , ' &Job', 25000, NULL, SDeptno) 

9 EXCEPTION 

10 WHEN E_CheckViolation THEN 

11 DBMS_OUTPUT . PUT_LINE ( ' A Field with Check Constraint 
Properly, Please Check Properly.'); 

12 WHEN E_NotNULLViolat ion THEN 

13 DBMS_OUTPUT . PUT_LINE ( ' A Field which Cannot be NULL, 
Please Check Properly.'); 

14* END; | 

SQL> / * 

Enter value 
Enter value 
Enter value 
Enter value 



for empno: 7935 
for ename: Sampath 
for job: CLERK 
for deptno: 30 
A Field with Check Constraint 
Properly . 



PL/SQL procedure successfully completed 



SQL> / 

Enter value 
Enter value 
Enter value 
Enter value 
A Field with 
Properly . 



for empno: 7935 
for ename: SAMPATH 
for job: Clerk 
for deptno: 30 + r ^ 

Check Constrain^ i^s 4fot 

vv 




is not Attended 



Please Check 



Attended Properly, Please Check 



PL/SQL procedure succeis completed. 




<3 



SQL> ED + rr+ J ± 

Wrote file af iedt . buf+4* 

: 

. Eiffpno%TYPE : = & Empno ; 

.Ename%TYPE := 'SEname'; 

Emp. Job%TYPE := '&Job' ; 
mo Emp . Deptno%TYPE : = SDeptno; 

6 lE_l|StNULLViolation EXCEPTION; 
r7li i ^^GMA EXCEPT ION_INI T (E_NotNULLViolation, -1400); 

^ f j'.fe_CheckViolat ion EXCEPTION; 

\ r PRAGMA EXCEPT I ON_INI T (E_CheckViolation, -2290); 

% TO BEGIN 

11 INSERT INTO Emp (Empno, Ename, Job, Sal, Comm, Deptno) 

12 VALUES (V_Empno, V_Ename, V_Job, 25000, NULL, V_Deptno) ; 

13 EXCEPTION 
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14 WHEN E_CheckViolation THEN 

15 IF UPPER (V_Ename) <> V_Ename THEN 

16 DBMS_OUTPUT.PUT_LINE ( 'Employee Name Cannot Be Lower Case') 

17 END IF; 

18 IF UPPER (V_Job) <> V_Job THEN 

19 DBMS_OUTPUT.PUT_LINE ( 'Employee Job Cannot Be Lower Case'); 

20 END IF; 

21 WHEN E_NotNULLViolat ion THEN 

22 IF V_Empno IS NULL THEN 

23 DBMS_OUTPUT.PUT_LINE ( 'Employee Number Cannot be NULL, 

Properly . ' ) ; 

2 4 ELSE J +□+>" 

25 DBMS_OUTPUT . PUT_LINE ( ' Department Number Cannot be nVll, ,$iease 

Properly . ' ) ; ♦ 

26 END IF; • ^ 

27* END; 

SQL> / 

Enter value for empno : NULL 
Enter value for ename : SAMPATH 
Enter value for job: CLERK 
Enter value for deptno : 30 
Employee Number Cannot be NULL, 




Check 



Pleas 




roperly . 



PL/SQL procedure successfully completed. 

vv 

sql> / ^ 

Enter value for empno : 7 937 
Enter value for ename : SAMP xT 
Enter value for job: CLERK 
Enter value for deptno : HfjLL .. 

Department Number Cann^Oto^WULL, Please Check Properly . 



PL/SQL procedure 




ully completed. 



SQL> / 

Enter va 1 ue^f ^y/ eftyno : 7 93 6 
Enter value fo rfename : Sampath 
Enter value fotjr job : CLERK 
for deptno: 30 
e Cannot Be Lower Case 



Enteivv. 




0 



Employee * 

PI//€|QlMprocedure successfully completed. 

K.U 






L> SPOOL OFF 
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